home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD027A.D64 / 2 col dir pr.exe (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.1 KB  |  64 lines
  1. 2 REM TPUG DISK (C)T9  MAY 84          .
  2. 100 REM "TINY DIRECTORY"               .
  3. 110 REM PRINTS A TINY 2-COLUMN RETURN ON A GEMINI & COMMODORE PRINTERS-        .
  4. 140 XX=0
  5. 150 ESC$=CHR$(27)
  6. 155 J$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":PRINT"[147]"J$
  7. 160 PRINT "  PRINTS A 2-COLUMN DIRECTORY"
  8. 162 PRINT"  THAT WILL FIT INSIDE DISK JACKET.":PRINTJ$
  9. 164 PRINT"  USES COMMODORE,GEMINI PRINTERS,         OTHERS, I DON'T KNOW.
  10. 165 [153]J$
  11. 166 [153]"  DOES NOT ALPHABETIZE MENU.":[153]J$
  12. 170 [139] XX[179][177]0 [167] 200
  13. 180 [133] "SYS  IS THE PRINTER ON (YWAIT/NWAIT)  YCMDCMDCMD"; A$
  14. 190 [139] A$[179][177]"Y" [167] [153] "ONON";: [137] 180
  15. 200 [134] N$(144): [143] LISTS UP TO 144 FILES ON DISK
  16. 210 [159] 15,8,15
  17. 220 [159] 4,4
  18. 230 [152]4, ESC$[199](64);: [143] RESET PRINTER  ESC @
  19. 240 [152]4, ESC$[199](66)[199](3);: [143] SETS 17 CPI  ESC B 3
  20. 250 [152]4, ESC$[199](83)[199](1);: [143] SUBSRIPT MODE IS SELECTED  ESC S 1
  21. 260 [152]4, ESC$[199](86)[199](1);: [143] ???  ESC V 1
  22. 270 [152]4, ESC$[199](65)[199](6);: [143] CHANGE LINE FEED TO 6/72" (1/12") ESC A 6
  23. 280 [153] "LIST  INSERT A DISK IN DRIVE"
  24. 290 [153] "  AND THEN PRESS <SPACE>CONT"
  25. 300 [161] A$: [139] A$[178]"" [167] 300
  26. 310 [153] "LOAD";
  27. 320 [152]15, "I"
  28. 330 CT[178]0: [143] CT IS THE COUNT OF THE NUMBER OF DISK FILES
  29. 340 [159] 2,8,0,"$0:*"
  30. 350 [161]#2, A$,A$
  31. 360 [161]#2, A$,A$,A$,B$
  32. 370 A[178][198](A$[170][199](0))[170]256[172][198](B$[170][199](0)): [143] CALC FILE SIZE
  33. 380 [139] ST [167] 530
  34. 390 L$[178]""
  35. 400 [139] CT [167] L$[178][202]([196](A)[170]"   ",2,3)
  36. 410 [161]#2, A$
  37. 420 [139] [168](A$[178][199](34) [176] A$[178]"B") [167] 410: [143] SEARCH FOR " OR B
  38. 430 GOTO 460
  39. 440 GET#2, A$:  IF A$="" THEN 470
  40. 450 IF (ASC(A$)AND127)<32 THEN 440
  41. 455 IF ASC(A$)>192 THEN A$=CHR$(ASC(A$)-128): REM CONVERT TO COMMODORE UPPERCASE
  42. 460 L$=L$+A$: GOTO 440: REM FORM NEXT FILENAME
  43. 470 L$=LEFT$(L$,25): REM TRUNCATE TO AT MOST 25 CHARACTERS
  44. 480 N$(CT)=L$: REM PUT FILENAME IN NAME ARRAY
  45. 490 IF CT=0 THEN PRINT "";L$;"[146]": GOTO 510: REM PUT DISK ID IN REVERSE VIDEO
  46. 500 PRINT L$: REM LIST FILENAME ON SCREEN
  47. 510 CT=CT+1
  48. 520 GOTO 360
  49. 530 PRINT#4, "";N$(0): REM PRINT (null) INFO
  50. 540 CT=CT-1: REM ADD FREE BLOCKS TO PRINT OUT
  51. 550 N$(CT)=LEFT$(N$(CT),3)+" "+MID$(N$(CT),4): REM PUT BLANK IN FREE BLOCK COUNT
  52. 560 MID=INT(CT/2)
  53. 570 FOR I=1 TO MID: PRINT#4, N$(I)"   "N$(I+MID): NEXT
  54. 580 IF CT<>2*INT(CT/2) THEN PRINT#4, TAB(28);N$(CT): REM CASE WHEN CT IS ODD
  55. 590 PRINT#4, " "
  56. 600 PRINT#4, ESC$CHR$(64): REM RESET PRINTER  ESC @
  57. 610 PRINT#4, " "
  58. 620 CLOSE 2
  59. 630 PRINT "[155]DO YOU WANT TO PRINT ANOTHER"
  60. 640 INPUT "DIRECTORY (Y[146]/N[146])  Y[157][157][157]"; A$
  61. 650 IF A$="Y" THEN CLR: XX=1: GOTO 150
  62. 660 PRINT "[154][147]"
  63. 670 END
  64.